home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / SystemCode / AlphaBits.tcl next >
Encoding:
Text File  |  1994-07-07  |  5.4 KB  |  215 lines  |  [TEXT/ALFA]
  1. if {[regexp {[]\(\)\"\{\}\[]} $HOME]} {alertnote "Alpha may not work properly if it's pathname includes parenthesis, square brackets, double quotes, or curly braces."}
  2.  
  3.  
  4.  
  5. # Alpha 5.x Init File
  6. # Change the first number to '1' if you don't want Alpha to remap the 
  7. # keyboard (i.e you are using an international keyboard).
  8. init 0 2
  9. set optionIsMeta     1
  10. set emacsBindings    1
  11.  
  12. # Icon menu names. The number refers to the resource id of the #ics family.
  13. #set fsetMenuName     "SetFiles"
  14. set fsetMenuName     "•129"
  15. set helpMenu        "•130"
  16. set winMenu         "•263"
  17.  
  18. set tclMenu            "•269"
  19. set thinkMenu         "•300"
  20. set cwarrierMenu    "•268"
  21. set cwdebugMenu        "•274"
  22. set toolserverMenu     "•265"
  23. set texMenu            "•270"
  24. set thinkRefMenu    "•265"
  25. set oztexMenu        "•266"  
  26. set texturesMenu    "•267"    
  27. set perlMenu         "•132"
  28. set terrMenu        "•271"
  29.  
  30. # A few definitions I'll need later.
  31. proc quoteExpr str {
  32.     regsub -all {\\} $str {\\\\} str
  33.     regsub -all {\|} $str {\|} str
  34.     regsub -all {\*} $str {\\*} str
  35.     regsub -all {\+} $str {\\+} str
  36.     regsub -all {\(} $str {\\(} str
  37.     regsub -all {\)} $str {\\)} str
  38.     regsub -all {\[} $str {\\[} str
  39.     regsub -all {\]} $str {\\]} str
  40.     return $str
  41. }
  42.  
  43. proc quoteExpr2 str {
  44.     regsub -all {\\} $str {\\\\} str
  45.     regsub -all {\|} $str {\|} str
  46.     regsub -all {\*} $str {\\*} str
  47.     regsub -all {\+} $str {\\+} str
  48.     regsub -all {\(} $str {\\(} str
  49.     regsub -all {\)} $str {\\)} str
  50.     regsub -all {\{} $str "\\\{" str
  51.     regsub -all {\}} $str "\\\}" str
  52.     regsub -all {\[} $str {\\[} str
  53.     regsub -all {\]} $str {\\]} str
  54.     return $str
  55. }
  56.  
  57. source ":Tcl:SystemCode:menus.tcl"
  58.  
  59. if {$emacsBindings} {
  60.     source ":Tcl:SystemCode:emacs.tcl"
  61. } else {
  62.     source ":Tcl:SystemCode:vi.tcl"
  63. }
  64.  
  65.  
  66. bind Left  backwardChar
  67. bind Left <c> beginningOfLine
  68. bind Left <s> backwardCharSelect
  69. bind Left <sc> beginningLineSelect
  70. bind Left <z> {scrollLeftCol 15}
  71. bind Left <o> backwardWord
  72. bind Left <os> backwardWordSelect
  73.  
  74. bind Right  forwardChar
  75. bind Right <c> endOfLine
  76. bind Right <s> forwardCharSelect
  77. bind Right <sc> endLineSelect
  78. bind Right <z> {scrollRightCol 15}
  79. bind Right <o> forwardWord
  80. bind Right <os> forwardWordSelect
  81.  
  82. bind Up  previousLine
  83. bind Up <s> prevLineSelect
  84. bind Up <c> beginningOfBuffer
  85. bind Up <sc> beginningBufferSelect
  86. bind Up <z> scrollUpLine
  87. bind Up <o> scrollUpLine
  88.  
  89. bind Down  nextLine
  90. bind Down <c> endOfBuffer
  91. bind Down <s> nextLineSelect
  92. bind Down <sc> endBufferSelect
  93. bind Down <z> scrollDownLine
  94. bind Down <o> scrollDownLine
  95.  
  96. bind ',' <z> pushMark
  97. bind '.' <z> popMark
  98.  
  99. # Keypad definitions
  100. bind KPad4  backwardWord                 
  101. bind KPad4   <c> backwardDeleteWord 
  102. bind KPad6   forwardWord                 
  103. bind KPad6   <c> deleteWord 
  104. bind Clear   insertToTop                 
  105. # Never bind Keypad /
  106. # Never bind Keypad *
  107. bind KPad0   pageBack                     
  108. bind Enter   pageForward
  109. ;bind KPad3   repeatSearchForward         
  110. ;bind KPad1   repeatSearchBackward     
  111. bind Kpad1 prevFunc
  112. bind Kpad3 nextFunc
  113. bind KPad.   endOfBuffer                 
  114. bind KPad5   exchangePointAndMark     
  115. bind KPad7   backwardDeleteWord         
  116. bind KPad9   deleteWord                 
  117. bind 's' <z>     isearch            
  118. bind 'r' <z>     rsearch            
  119. bind 'a' <z>     beginningOfLine    
  120. bind 'b' <z>     backwardChar        
  121. bind 'd' <z>     deleteChar        
  122. bind 'f' <z>     forwardChar        
  123. bind 'e' <z>     endOfLine        
  124. bind 'g' <z>     abortEm            
  125. bind 'k' <z>     killLine            
  126. bind 'l' <z>    centerRedraw
  127. bind 't' <z>     insertToTop        
  128. bind 'p' <z>     previousLine        
  129. bind 'n' <z>     nextLine            
  130. bind 'o' <z>     openLine            
  131. bind 'u' <z>     iterationCount    
  132. bind 'v' <z>     pageForward        
  133. bind 'v' <e>     pageBack
  134. bind 'z' <z>     pageBack
  135. bind 'w' <z>     cut            
  136. bind 'w' <e>     copy
  137. bind "' '" <z>     setMark
  138. bind 'y' <z>     yank                
  139. bind '1' <z>    execAbbrev
  140.  
  141. # Alpha variable and flag definitions.
  142. set temp [getMainDevice]
  143. set tileWidth [expr {[lindex $temp 2] - [lindex $temp 0] - 10}]
  144. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  145. set tileHeight [expr [lindex $temp 3] - [lindex $temp 1] - 62]
  146. set defHeight $tileHeight
  147. unset temp
  148.  
  149. source ":Tcl:SystemCode:definitions.tcl"
  150.  
  151.  
  152. bind F1     iconify                     
  153. bind F2     cut                         
  154. bind F3     copy                         
  155. bind F4     yank                         
  156. bind F5     prevWindow
  157. bind F6        nextWindow
  158. bind F7        tiled
  159. bind F8        swapWithNext
  160. bind F9     pushMark
  161. bind F10    popMark
  162. bind F11    shrinkHigh
  163. bind F12    shrinkLow
  164. bind F13    startKeyboardMacro         
  165. bind F14    endKeyboardMacro             
  166. bind F15    executeKeyboardMacro         
  167.  
  168. bind Del    deleteChar                 
  169. bind Help   alphaHelp                     
  170. bind Home   beginningOfBuffer             
  171. bind End    endOfBuffer                 
  172. bind Pgup   pageBack                     
  173. bind Pgdn   pageForward                  
  174.  
  175. proc debug {} {
  176.     uplevel #0 {
  177.         set debugging 1
  178.     }
  179. }
  180.  
  181. # Load electric alias, rebind tcl file completion for precedence.
  182. proc loadElectricAlias {} {
  183.     global HOME
  184.     uplevel #0 {
  185.         source "$HOME:Tcl:ElectricAlias:electricAlias.tcl"
  186.     }
  187.     message "ElectricAlias loaded."
  188.     bind '\t' tclFileCompletion "Csh"
  189.     enableMenuItem Mode loadElectricAlias off
  190. }
  191.  
  192. source "$HOME:Tcl:SystemCode:procs.tcl"
  193. source "$HOME:Tcl:SystemCode:modes.tcl"
  194. source "$HOME:Tcl:SystemCode:filesets.tcl"
  195. source "$HOME:Tcl:SystemCode:flags.tcl"
  196. source "$HOME:Tcl:SystemCode:copyRing.tcl"
  197. set auto_path [list $HOME:Tcl:SystemCode $HOME:Tcl:UserCode]
  198. source ":Tcl:SystemCode:library.tcl"
  199.  
  200. # Default curr fileset is the first one. Can be changed in 'userStartup.tcl'.
  201. set currFileSet [lindex [array names fileSets] 0]
  202.  
  203. # Use "userStartup.tcl" to define or change any tcl information. */
  204. if {[file exists ":userStartup.tcl"]} {
  205.     source  ":userStartup.tcl"
  206. }
  207.  
  208.  
  209. # source {PowerPete:Desktop Folder:down:phm:modeprocs.tcl}
  210. # source {PowerPete:Desktop Folder:down:phm:modes.tcl}
  211.  
  212.  
  213. # Should be last so all filesets make it in.
  214. makeFilesetMenu
  215.